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A CONCLUSÃO DA AVENTURA 


Depois de vencer muitos obstáculos, o aventurei- 
ro defronta-se com um último perigo. O que acon- 
tecerá? Acenda a lâmpada e mate o seu coletor 
de impostos. O olho perdido do totem inca final- 
mente encontrado....... ci... serei RA 321 
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gras para uma boa apresentação do texto. Use a 
tecla de retrocesso para corrigir os erros. Não olhe 
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Na busca incessante do olho perdido do 
totem inca, o herói chega à sala 
do trono de um reino remoto. Sairá ele 
com vida ou perecerá nas garras 
de um implacável coletor de impostos? 


Depois de muitas peripécias e lances 
de emoção, aproxima-se do fim nosso 
jogo de aventura. Antes de concluí-lo, 
porém, devemos acrescentar-lhe certos 
detalhes, como novos perigos e avisos, 
além de uma saída pela qual o aventu- 
reiro possa escapar com vida. Algumas 
instruções também precisam ser incor- 









poradas ao jogo. 

Como essas rotinas contêm detalhes 
específicos a esta aventura, o programa 
que se segue não deve ser usado em ou- 
tras aventuras sem modificações. Ele 
apenas completará o jogo em andamen- 
to e mostrará, em termos gerais, o que 
é necessário para fazer um programa 
desse tipo. No próximo artigo, mostra- 
remos como os princípios apresentados 
aqui podem ser adaptados de modo a se 
encaixar às suas próprias idéias. 


VOCÊ PRECISA DE AJUDA 





Sempre que se encontrar diante de 


COMO SOCORRER O HERÓI 
ELIMINE O COLETOR 
DE IMPOSTOS 
“COMO ACENDER A LÂMPADA 
INSTRUÇÕES 
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uma situação particularmente perigosa, 
o jogador (e, portanto,o personagem da 
aventura) pode recorrer ao computador, 
solicitando sugestões. Estas aparecerão 
na forma de mensagens impressas pela 
máquina em resposta ao pedido (“' AJU- 
DAR") do jogador. O significado de 
tais mensagens, assim como o momen- 
to em que elas serão impressas, depen- 
de apenas do programador. Podemos 
escolher, se desejarmos, não apresentar 
qualquer mensagem, ou fazê-las propo- 
sitalmente ilusórias, ou mesmo prestar 
ajuda somente em alguns locais 
isolados. 

Em nossa aventura existem vários 
pontos onde talvez valha a pena digitar 
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curtas mensagens para o jogador, adver- 
tindo-o, por exemplo, sobre o quarto es- 
curo quando ele se encontrar em suas 
proximidades. Uma forma interessante 
de mensagem consiste em responder ao 
pedido de “AJUDAR” com um 
“OLHE PARA ONDE VAT”, ou algo 
até mais enigmático. 

Outra mensagem pode ser emitida às 
margens do rio, onde o aventureiro cor- 
re o risco de se afogar (principalmente 
se estiver carregando um tijolo). 

Evidentemente, o número dessas 
mensagens pode ser muito grande. Tu- 
do depende da vontade do programa- 
dor. Suponhamos, contudo, que este 
queira emitir apenas um aviso, por 
exemplo, no rio. O primeiro passo para 
isso consistirá em relacionar o aviso com 
o número do local — número 7 — e com 
a variável que registra a presença do ti- 
tolo, OB (7). 


3100 REM **AJUDAR** 

3110 IF L<>7 OR B(2)<>-1 THEN 
PRINT "DESCULPE, NAO POSSO AJUD 
AR AGORA”: GOTO 330 

3120 PRINT "TIJOLOS SÃO MUITO P 
ESADOS. SEU BRACO DEVE ESTAR D 
OENDO.”: GOTO 330 


Tite 


3100 REM **AJUDAR** 

3110 IF L<>7 OR 0B(2)<>-1 THEN 
PRINT "DESCULPE, NAO POSSO AJUD 
AR AGORA” :GOTO 330 

3120 PRINT "TIJOLOS SAO MUITO P 
ESADOS. SEU BRACO DEVE ESTAR DO 
ENDO.”:GOTO 330 





Se o aventureiro não se encontrar no 
rio (L < > 7) ou não estiver carregan- 
do o tijolo — (0B (2) <>-1 ou B (2) 
<>-1) —, a linha 3110 imprimirá a 
mensagem “DESCULPE, NÃO POS- 
SO AJUDAR AQUI”. Se, pelo contrá- 
rio, ele estiver transportando o tijolo e 
solicitar ajuda ao chegar ao rio, então 
aparecerá o aviso “TIJOLOS SÃO 
MUITO PESADOS. SEU BRAÇO DE- 
VE ESTAR DOENDO”, impresso pe- 
la linha 3120. 

Nada nos impede de acrescentar uma 
lista completa de mensagens de ajuda 
nas mais diversas condições e locais de 
aventura. 


O COLETOR DE IMPOSTOS | 





Se o jogador é o “mocinho” da aven- 
tura, quem faz o papel de “bandido” 
é o coletor de impostos. O objetivo deste 
último é confiscar alguns objetos para 


saldar a dívida do nosso herói com o fis- 
co. Assim, ele escolhe ao acaso um dos 
objetos transportados pelo jogador e o 
confisca, podendo levar até mesmo um 
tijolo como pagamento, 

Se o aventureiro não estiver carregan- 
do alguma coisa quando o coletor de im- 
postos aparecer, ele será preso e seu des- 
tino será apodrecer em uma masmorra. 
E assim o jogo terminará. 

O papel do coletor de impostos é dar 
um toque de suspense ao jogo, já que 
ele surge de forma inesperada, indepen- 
dentemente do local ou de outras con- 
dições. Como em outros exemplos de 
acaso na programação de jogos, deve- 
mos fazer uso da função RND. O cole- 
tor é tratado como qualquer um dos ob- 
jetos, com a diferença que sua localiza- 
ção é determinada ao acaso. 

Aqui estão as linhas extras, para 
fazer o coletor de impostos aparecer. 


320 IF RND<(1/15) AND TA=0 
THEN LET B(7)=L: LET TA=1 
480 IF B(7)=L AND I<>10 THEN 
GOTO 1590 


320 IF RND(15)=1 AND TA-0 THEN 
OB(7)=L:TA=1 

480 IF O0B(7)=L AND I<>10 THEN 1 
590 


a 


320 RN=RND(-TIME) : IF INT(RND(1) 
*15+1)=1 AND TA=U THEN OB(7)=L: 
TA=1 
480 IF OB(7)=L AND I<>10 THEN 1 
590 


Lélio] 
320 IF 

) = 1 AND TA = O THEN 0B(7) 
TA = 1 

480 IF 0B(7) = L ANDI < > 10 
THEN 1590 


INT ( BND (1) * 15 +1 
-L 


Inicialmente, o Spectrum iguala to- 
das essas variáveis a 0. 

A linha 320 de todos os programas 
dá ao aventureiro uma chance em quin- 
ze de encontrar o coletor — este é o pro- 
pósito do 15 no RND. O coletor só po- 
de aparecer uma vez durante o jogo; 
portanto, você precisa da variável TA 
para saber se isso aconteceu ou não. 

Se o número randômico for 1 (ou me- 
nor de que 1/15 no Spectrum) e o ins- 
petor ainda não tiver aparecido, a linha 


320 ajustará o valor do elemento 7 da 
matriz de localização de objetos — cor- 
respondente ao coletor —, de acordo 
com o lugar em que se encontra o joga- 
dor — L. O aviso de que o coletor che- 
gou será dado como se ele fosse um ob- 
jeto que tivesse sido colocado naquele 
local. Esse aviso nada mais é do que a 
descrição do objeto 7; o coletor. 

A linha 480 tem a ver com o ato de 
eliminar o coletor, verificando se você 
tentou matá-lo. Se você não o fez, o pro- 
grama pulará para a linha 1590. 


COMO SE LIVRAR DO COLETOR 


Quando o coletor de impostos mos- 
trar sua cara feia, o aventureiro deverá 


















atirar nele com o revólver que pode ser 
encontrado no outro lado do rio: 
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1540 REM **MATAR** 

1550 IF B(4)<>-1l THEN PRINT "C 
OM O QUE?": GOTO 320 

1560 IF B(7)<>L THEN PRINT VS; 
” QUEM?”: GOTO 320 

1570 PRINT "VOCE MATOU O ";BS(7 
)J: LET B(7)=0: GOTO 330 


— o —— 
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1540 REM **MATAR** 

1550 IF 0B(4)<>-1l THEN PRINTºCO 
M O QUE ?7":GOTO 320 

1560 IF OB(7)<>L THEN PRINT VS; 
" QUEM ?":GOTO 320 
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1570 PRINT ” VOCE MATOU O ";0BS 
(7) :0B(7)=D:GOTO 330 

Essa rotina será usada quando o joga- 
dor digitar “MATAR” ou “ATIRAR”. 
Se ele estiver sem a arma (OB (4) < > 
—1) ou (B (4) < >-1),a linha 1550 per- 
guntará “COM QUÊ?”. Se o coletor 
não estiver e o jogador tentar matá-lo, 
a linha 1560 imprimirá “QUEM?”. A 
linha 1570 comunica: “VOCÊ MATOU 
O COLETOR” e ajusta o elemento 7 da 
matriz de lotalização de objetos para o 
inspetor não mais existir. 


A VINGANÇA DO COLETOR 





Aqui, O aventureiro é quem sofre nas 
mãos do coletor de impostos: 





— 





1580 REM **COLETOR DE IMPOSTOS* 


1590 LET IN=0: LET B(7)=0 

1600 FOR K=1 TO NB 

1610 IF B(K)=-1 THEN LET IN=IN 
+1 

1620 NEXT K 

1630 IF IN=0 THEN PRINT "COMO 


VOCE NAO TEM NADA QUE POSSASER 
CONFISCADO, ELE O PRENDE EM UMA 
MASMORRA IMUNDA”: GOTO 1360 
1640 LET K=INT (RND*NB)+1: IF B 
(K)<>2-1 THEN GOTO 1640 

1650 PRINT "ELE TOMA O ";BS(K), 
"DE VOCE”: LET R(K)=0: GOTO 400 


=—— - 

mr 

1580 REM **XCOLETOR DE IMPOSTOS* 
1590 IN=0:0B(7)=0 

1600 FOR K=1 TO NB 

1610 IF OB(K)=-1 THEN IN=IN+1 
1620 NEXT 

1630 IF IN=0 THEN PRINT "COMO V 
OCE NAO TEM NADA QUE POSSASER C 
ONFISCADO, ELE O PRENDE  EMUMA 
MASMORRA IMUNDA”" :GOTO 1360 

1640 K=RND (NB) :IF OB(K)<>-1 THE 
N 1640 

1650 PRINT “ELE TOMA O ";0BS(K) 
+” DE VOCE" :0B(K)=0:GOTO 330 
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1580 REM 
OS ** 

1590 IN = 0:0B(7) = 0 
1600 FOR K = 1 TO NB 


** COLETOR DE IMPOST 


1610 IF OB(K) = -— 1 THEN IN = 
nn + 2 
1620 NEXT 


1630 IF IN = O THEN PRINT “CO 

MO VOCE NAO TEM NADA QUE POSSA 
SER CONFISCADO, ELE O PRENDE 
EM UMA MASMORRA IMUNDA 
": GOTO 1360 

1640 K = JINT ( RND (1) * NB + 
1): IF OB(K) < > - 1 THEN 164 


0 
1650 PRINT "ELE TOMA O ";OBS(K 
);” DE VOCE":OB(K) = O: GOTO 33 
O 


Como ao inspetor de taxas é permi- 
tido aparecer apenas uma vez durante 
a aventura, a linha 1590 ajusta o elemen- 
to 7 da matriz de localização de objetos 
de forma que ele não mais exista en- 
quanto durar o programa. Esse proce- 
dimento não afeta em nada a rotina, 
mas evita O aparecimento do coletor no 
futuro. IN é um marcador usado para 
verificar se objetos estão sendo car- 
regados. 

As linhas 1600 e 1620 passam pela 
matriz de localização de objetos, verifi- 
cando se cada objeto está sendo trans- 
portado. Qualquer objeto que estiver 
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sendo carregado aumenta | no marca- 
dor IN. 

Se nada estiver sendo transportado, 
então o valor de IN permanecera 0 e o 
aventureiro será comunicado: “COMO 
VOCÊ NAO TEM NADA QUE POS- 
SA SER CONFISCADO, ELE O 
PRENDERA EM UMA MASMORRA 
IMUNDA”. O jogo termina e pergunta- 
se ao aventureiro se ele deseja uma ou- 
tra jogada; isto é feito pela linha 1360. 

Caso haja objetos sendo transporta- 
dos, a linha 1640 pegará um deles ao 
acaso. Se esse objeto estiver entre os que 
estão sendo carregados, ele sera apreen- 
dido. No entanto, se não estiver, outro 
objeto será escolhido a esmo e assim por 
diante, até que a escolha coincida com 
um que esteja sendo transportado. 

Se um objeto adequado tiver sido se- 
lecionado, a linha 1650 comunicará ao 
aventureiro que objeto foi confiscado 
pelo coletor. O elemento da matriz de 
localização de objetos correspondentes 
será então alterado; assim, o objeto não 
mais existirá. 


UM POUCO DE NATAÇÃO 





Esta rotina é usada quando o joga- 
dor decide atravessar O rio: 


1400 REM **NADAR** 


1410 IF L<>7 THEN PRINT "NADAR 
ONDE 7!!": GOTO 400 

1420 IF B(2)=-1 THEN PRINT "QU 
E VERGONHA, VOCE SE AFOGOU !": 
GOTO 1360 

1430 IF B(4)>-1 THEN PRINT “VO 
CE ACHOU UM REVOLVER”: LET B(4) 
--1: GOTO 400 

1440 PRINT "VOCE SE MOLHOU TODC 
": GOTO 400 


TiTitie 


1400 REM **NADAR** 

1410 IF L<>7 THEN PRINT ”* ONDE? 
11" -GOTO 330 

1420 IF 0B(2)=-1 THEN PRINT " Q 
UE VERGONHA, VOCE SE AFOGOU!":G 
OTO 1360 

1430 IF 0B(4)>-1 THEN PRINT ” V 
OCE ACHOU UM REVOLVER”" :0B(4)=-1 
“GOTO 330 

1440 PRINT ”" VOCE SE MOLHOU TOD 
O” :GOTO 330 


A linha 1410 verifica se o aventurei- 
ro está próximo ao rio. Se não estiver, 
o computador perguntará: “NADAR 
ONDE?!!” Como não existem piscinas 
ou praias na aventura, não há razão pa- 
ra escrever uma rotina de entrada para 
lidar com qualquer outra resposta. Ne- 


nhuma sugestão aparecerá e o Jogo pros- 
seguirá, mostrando as direções disponi- 
veis. Caso tente atravessar O rio carre- 
gando o tijolo, o jogador morrerá — 
“QUE VERGONHA; VOCÊ SE AFO- 
GOU!”, comentará friamente o compu- 
tador. Mas essa ''morte”” tem suas par- 
ticularidades: depois de afundar, o jo- 
gador poderá ressuscitar, se escolher jo- 
gar novamente. 

A linha 1430 verifica se o jogador 
carrega o revólver. Em caso negativo, 
o elemento da matriz de localização de 
objetos correspondente ao revólver se- 
rá ajustado e surgirá a mensagem: “VO- 
CÊ ENCONTROU UM REVÓLVER”. 

Se o aventureiro já encontrou a ar- 
ma e estiver tentando atravessar O rio 
novamente, a linha 1440 dirá: “VOCÊ 
SE MOLHOU TODO”. 


FINALMENTE, O OLHO PERDIDO 





O jogador só poderá recuperar o tão 
cobiçado olho perdido do totem inca se 
o saco de bolas de gude tiver sido en- 
contrado. O passo a seguir será, portan- 
to, esvaziar O saco para o olho apare- 
cer. Aqui está a rotina. 


1450 REM **ESVAZIAR** 

1460 IF NS<>"SACO"( TO LEN N$) 

THEN PRINT “ISTO NAO PODE SER 
ESVAZIADO”: GOTO 400 

1470 IF B(1)<>-1 THEN LET G=1: 
GOTO 1270 
1480 PRINT 
LHAM PELO CHAO”: 
TO 370 


TT 


1450 REM **ESVAZIAR** 

1460 IN=INSTR("SACO",NS):IF IN< 

>1 THEN PRINT ” ISTO NAO PODE S 

ER ESVAZIADO”:GOTO 330 

1470 IF OB(1)<>-1 THEN G=1:GOTO 
1270 ; 


"AS BOLINHAS SE ESPA 
LET B(5)=L: GO 





1480 PRINT ” AS BOLINHAS SE ESP 
ALHAM PELO CHAO” :0B(5)=L:GOT 
O 370 

1450 REM ** ESVAZIAR ** 

1460 IN = O: IF N$ = LEFTS ("5 
ACO”, LEN (N$)) THEN IN = 1 


1465 IF IN < > 1 THEN PRINT 
” ISTO NAO PODE SER ESVAZIADO”: 
GOTO 330 

1470 IF OB(1) < » 
- 1: GOTO 1270 
1480 PRINT *" AS BOLINHAS SE ES 
PALHAM PELO CHAO" :0B(5) = L: GO 
TO 370 


- 1) THEN G 


A rotina é chamada quando o aven- 
tureiro aciona o comando “ESVAZIAR” 
alguma coisa. A linha 1460 verifica se essa 
coisa é o saco. Se não for (N$ < > “SA- 
CO"), aparecerá a mensagem “ISTO 
NÃO PODE SER ESVAZIADO”. A li- 
nha 1470 verifica se o saco está sendo car- 
regado (OB (1) < >-1 ou B(1) < >-1). 
Se não estiver, em vez de emitir outra 
mensagem, o programa pulará para a li- 
nha 1270, que exibirá a mensagem: “VO- 
CE NAO PODE LARGAR O QUE NÃO 
TEM". Como o jogador não quererá 
“LARGAR” nada, essa linha deve ser 
modificada, de forma a dar uma respos- 
ta adequada. Mude-a para: 


1270 IF B(G) & > -1 THEN PRINT 


"VOCE NAO PODE ";VS;” O QUE NÃO 
TEM" :GOTO 330 


TITE 


1270 IF OB(G)<>-1 THEN PRINT "V 
OCE NAO PODE ";V$;" O QUE NAO T 
EM" :GOTO 330 


A variável V$ imprimirá o verbo ade- 
quado — “LARGAR” ou “ESVA- 
ZIAR" —, conforme a situação. 

Se o saco estiver sendo carregado, o 
programa irá para a linha 1480. A men- 
sagem “AS BOLINHAS SE ESPA- 
LHAM PELO CHAO” será mostrada 
e o elemento 5 da matriz de localização 
de objetos será acertado. 

Não há necessidade de imprimir uma 
mensagem para informar o resultado 
porque, ao pular para a linha 370, a im- 
pressão usual de uma descrição longa 
poderá substituí-la. Aparecerá então no 
vídeo a descrição usada na matriz de 
descrições longas (ver linha 240). 





ACENDA A LÂMPADA 


A lâmpada precisa ser acesa para que 
o Jogador veja as saídas do quarto es- 
curo. Se o aventureiro não estiver car- 
regando a lanterna, a escuridão não se- 
rá vencida e ele ficará preso. Esta é a ro- 
tina para acender a lâmpada. 


1490 REM **XACENDER** 

1500 IF NS<>" LAMPADA” ( TO LEN N 
S) THEN PRINT "NAO PODE SER FE 
ITO": GOTO 400 

1510 IF B(6)<>-1l THEN LET G=6: 
GOTO 1270 

1520 LF LA=1 THEN PRINT "JA ES 


TA ACESA": GOTO 400 
1530 LET LA=-1: LET DA=-0: PRINT 
"OK": GOTO 330 








A ACESA” :GOTO 330 
1530 LA=1: PRINT "OK”:GOTO 330 


CU 


TT 


1490 REM **ACENDER** 

1500 IN=INSTR("LAMPADA”,NS): IF 
IN<>1 THEN PRINT ” NAO PODE SER 
FEITO”:GOTO 330 

1510 IF 0B(6)<>-1 THEN G=6:GOTO 
1270 

1520 IF LA=1 THEN PRINT” JA EST 


1490 


1505 


REM ** ACENDER ** 
1500 IN = O: 
AMPADA”, LEN 


IF IN < 


IE N$ = LEFTS ("L 
(NS)) THEN IN = 1 
> 1 THEN PRINT 


” NÃO PODE SER FEITO”: GOTO 330 
1510 IF OB(6) < > - 1 THEN G 
- 6: GOTO 1270 

1520 IF LA = | THEN PRINT “JA 
ESTA ACESA": GOTO 330 

1530 LA = 1: PRINT “OK”: GOTO 3 
30 


Para que essa rotina seja requisitada, 
é preciso que o jogador emita a instru- 





MO 1390 END 


ção “ACENDER”". A linha 1500 (1505 
no Apple) é bem parecida com a linha 
equivalente na rotina “ESVAZIAR”, 
verificando se o aventureiro escreveu a 
palavra “LAMPADA”. Caso a lanter- 
na não esteja sendo carregada, surgirá 
a mensagem “VOCÊ NÃO PODE 
ACENDER O QUE NÃO TEM”. A li- 
nha 1520 verifica se o “indicador de 
lâmpada acesa” — LA — está “liga- 
do", comunicando o fato ao aventurei- 
ro. O indicador de lâmpada acesa é fi- 
xado em 1 pela linha 1530, que também 
imprime um “OK”. 





AVENTURA CHEGA AO FIM 


Quando nosso herói entra em cena, 
encontra uma corrente pendurada, pró- 
xima ao trono. 

O que deve ele fazer? Que tal puxar 
a corrente? Aqui está uma rotina que 
cuidará das consequências: 


Le 


—e 


1300 REM **PUXAR** 

1310 IF N$="CORRENTE” ( TO LEN N 
S) THEN LET IN=1: IF IN=1 AND 
L<>24 THEN PRINT "NADA ACONTEC 
E”: GOTO 400 

1320 IF IN<>1 THEN PRINT "VOCE 
NAO PODE PUXAR ISTO !": GOTO 4 
00 

1330 IF B(5)<>-1 THEN PRINT "V 
OCE CAI DENTRO DO VASO E VAI EM 
BORA COM A DESCARGA”: GOTO 1360 
1335 REM *XFIM DA AVENTURA** 
1340 PRINT "PARABENS ! VOCÊ COM 
PLETOU A TAREFA.” 

1360 PRINT '"QUER JOGAR NOVAMEN 
TE (S/N)?” 

1370 LET AS=INKEYS: IF AS<>"S” 
AND AS<>"N” THEN GOTO 1370 
1380 IF AS="S” THEN RUN 

1390 STOP 


O EI 

TITA 

1300 REM **PUXAR** 

1310 IN=INSTR("CORRENTE”,NS):IF 
IN=1 AND L<>24 THEN PRINT ” NA 

DA ACONTECE” :GOTO 330 

1320 IF IN<>1 THEN PRINT ” VOCE 
NAO PODE PUXAR 15S0!":GOTO 330 
1330 IF 0B(5)<>-1 THEN PRINT” V 

OCE CAI DENTRO DO VASO E VAI 

EMBORA COM A DESCARGA” :GOTO 136 
O 

1340 REM **FIM DA AVENTURA** 
1350 PRINT "PARABENS! VOCE COMP 
LETOU A TAREFA” 

1360 PRINT:PRINT”" QUER JOGAR NO 
VAMENTE (5/N)?”" 

1370 AS=INKEYS:IF AS<>"S” AND A 
S<>"N” THEN 1370 

1380 IF A$="S”" THEN RUN 










TO 330 

1330 IF OB(5) = - 1 THEN 1340 
1335 PRINT ” VOCE CAI DENTRO D 
O VASO E VAI EMBORA COM A DESCA 
RGA”": GOTO 1360 

1340 REM ** FIM DA AVENTURA * 
* 


GIO! 

1300 REM ** PUXAR ** 
1310 IN = O: IF N$ = LEFTS (TC 
ORRENTE”, LEN (N$)) THEN IN = 1 
1315 IF IN=1ANDLS >24T 
HEN PRINT "NADA ACONTECE”: GOT 
O 330 
1320 TF IN < > 1 THEN PRINT 
”" VOCE NÃO PODE PUXAR ISSO”: GO 


1350 PRINT "PARABENS ! VOCÊ CO 
MPLETOU A TAREFA.:? "FIMDAAVENT 
URA” 


O aa Fio 


— = Fo gil opere 


à ur E 4 


nha Uni 







1360 PRINT : PRINT ” QUER JOGA 
R NOVAMENTE (S/N) 7” 

1370 GET AS: IF AS < 5>"S” AN 
D AS < > "Nº THEN 1370 

1380 IF AS = "S” THEN RUN 
1390 END 


A linha 1310 considera a possibilida- 
de de o jogador ter trazido a corrente 
consigo antes mesmo de puxá-la. Neste 


f it É ia == À fandá o ddisalaadi 
gy en! 
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caso, ela dirá ao aventureiro que “NA- 
DA ACONTECE”. 

Se o herói tentar puxar qualquer ou- 
tro objeto, a linha 1320 lhe dirá: “VO- 
CÊ NÃO PODE PUXAR ISSO”. 

Depois disso, acontece o inesperado, 
Se o jogador estiver na sala do trono, não 
tendo porém encontrado o olho, apare- 
cerá a mensagem “VOCÊ CAI DENTRO 
DO VASO E VAI EMBORA COM A 
DESCARGA”. E o jogo termina. 

Se o aventureiro der um jeito de en- 
contrar o olho e puxou a corrente no 
aposento real, nenhuma dessas linhas te- 
rá efeito e ele poderá suspirar aliviado 
ao receber a mensagem: “PARABENS! 
VOCÊ COMPLETOU A TAREFA. 
FIM DA AVENTURA”. 

Finalmente, nas linhas 1360 e 1380, 
há uma opção para jogar novamente. 
Esta, porém, só será útil se o aventurei- 
ro tiver sido enclausurado na masmor- 
ra ou seguido com a descarga cano 
adentro. 


| AS INSTRUCÕES | 


Devemos incorporar, agora, algumas 
informações à rotina do jogo. Antes dis- 
so, porém, precisamos verificar O espa- 
ço restante da memória (ver página 212). 
Se esse espaço for pequeno, será neces- 
sário retirar todas as linhas REM — te- 
remos então que remunerar os coman- 
dos COSUB que direcionam o progra- 
ma para essas linhas, evitando assim 
mensagens de erro. 

A decisão de quantas instruções se- 
rão fornecidas deve ser tomada de 
acordo com o espaço disponível de me- 
mória. Nelas podemos incluir até con- 
siderações quanto ao formato do vídeo 
do computador, o que influenciará na 
quantidade de detalhes a serém inseri- 
dos antes de passarmos para outra tela. 

Como nossa aventura é muito sim- 
ples, a rotina de instruções reduz-se a al- 
gumas linhas, contendo poucas infor- 
mações. Aqui está: 





eh, 
| 


TE TA, 


80 CLS PRINT "QUER INSTRUCO 
ES (5/N)?7” 

90 LET AS=INKEY$: IF A$S="" TH 
EN GOTO 20 É 


95 IF A$="S" THEN GOSUB 6000 
6000 REM **INSTRUCOES** 
6010 CLS PRINT : PRINT * DEV 
IDO A UM COLAPSO FINANCEIRO VO 
CE DEIXOU O PAIS.” 


6020 PRINT : PRINT ”* SEUS PROB 
LEMAS VAO TERMINAR QUANDO V 
OCE ENCONTRAR O LEGENDA 
RIO OLHO CRAVEJADO DE BRILHA 
NTES DE UM TOTEM INCA. DEPOI 


8 DE FAZE-LO, VOCE TERA QUE 
ENCONTRAR A SAIDA.” 

6030 PRINT PRINT * CUIDADO 
COM O COLETOR DE 
IMPOSTOS 1!" 

6040 PRINT AT 20,4;" PRESSIONE Q 

UALQUER TECLA PARA CONTI 
NUAR” 


6050 LET AS=INKEYS: 
EN GOTO 6050 
6060 RETURN 


TITIA 


10 CLS: PRINT” 
S/N)?” 

20 AS=INKEYS: IF A$="" THEN 20 
30 IF A$="S”" THEN GOSUB 6000 
6000 REM **INSTRUCOES** 

6010 CLS:PRINT:PRINT ” DEVIDO A 


IF AS$="" TH 


QUER INSTRUCOES 


UM COLAPSO FINANCEIRO VOCE DE 
IXOU O PAIS.” 
6020 PRINT: PRINT * SEUS PROBLEM 
AS VAO TERMINAR QUANDO VOCE 
ENCONTRAR O LEGENDARIO 
OLHO CRAVEJADO DE BRILHANTE 
S DE UM TOTEM INCA. DEPOIS D 


E FAZE-LO VOCE TEM QUE  ENCONTR 
AR A SAIDA.” 


6030 PRINT:PRINT” CUIDADO CO 


M O COLETOR DE 
IMPOSTOS 1!” 

6040 PRINT €451," APERTE QUALQUE 
R TECLA PARA CONTINUAR." 


6050 AS=INKEYS:IF AS="" THEN 60 
50 
6060 RETURN 


Fi 





[éiio 

10 HOME PRINT "QUER INSTRUCO 
ES (8/N)?" 

20 GET AS: IF AS = "”" THEN 20 
30 IF AS = "S” THEN GOSUB 600 
Ô 

6000 REM ** INSTRUCOES ** 
6010 HOME PRINT "DEVIDO A UM 


COLAPSO FINANCEIRO, VOCE ” 


6020 PRINT “DEIXOU O PAIS.” 
6025 PRINT "SEUS PROBLEMAS VAO 
TERMINAR” 


6030 PRINT "QUANDO VOCE ENCONT 
RAR O LEGENDARIO” 


6040 PRINT "OLHO CRAVEJADO DE 
BRILHANTES, DE UM * 

6050 PRINT “TOTEM INCA. DEPOIS 
DE FAZE-LO, VOCE * 

6060 PRINT "TERA QUE ENCONTRAR 
A SAIDA” 


"CUIDADO CO 


6070 PRINT : PRINT 
M O COLETOR DE IMPOSTOS 


6080 PRINT : PRINT "APERTE QUA 
LQUER TECLA PARA CONTINUAR” 
6090 GET AS: IF AS = "" THEN 6 
090 

6100 RETURN 


Agora, grave em fita ou disco a aven- 
tura completa. A estrutura desse jogo — 
O Olho Perdido do Totem Inca — po- 
de servir de base para suas próprias 
aventuras. 
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DATILOGRAFE 





Se você já se sente em condições de 
digitar qualquer palavra ou frase a um 
ritmo seguro, podemos passar a uma 
nova etapa de nosso curso de datilogra- 
fia. Até este ponto, o curso foi útil tan- 
to para aqueles que querem apenas di- 
gitar programas quanto para os interes- 
sados em escrever cartas ou usar um edi- 
tor de textos. 

Nesta seção, você encontrará a opor- 
tunidade de aperfeiçoar suas habilida- 
des, utilizando um texto mais longo. 
Dessa forma, além de tornar-se mais rá- 
pido, você acumulará experiência para 
usar o computador como uma ferra- 
menta de escrita. 

É muito importante continuar fiel à 
técnica de digitação usada até agora: 
portanto, não olhe para o teclado en- 
quanto digita; use sempre as teclas base 
como referência; procure também man- 
ter o ritmo constante — não saia digi- 
tando sofregamente, a alta velocidade, 
mas sem segurança (a regra de ouro é 
iniciar a uma velocidade que possa ser 
mantida por algum tempo e, só então, 
ir acelerando aos poucos). 





COMO USAR O PROGRAMA 


Ao executar O programa, o compu- 
tador apresentará um menu inicial com 
duas opções de teste. A primeira mos- 
tra frases geradas ao acaso a partir de 
declarações DATA do programa. A se- 
gunda requer um pouco mais de traba- 
lho. Ela permite que você use frases 
mais longas, mas exige que estas sejam 
digitadas antes. Feito isto, as frases são 
mostradas na tela, como no primeiro 
teste. Em ambos os casos você deverá 
datilografar o texto da maneira que ele 
aparece na tela; o programa lhe infor- 
mará então o número de erros cometi- 
dos e a sua velocidade em palavras por 
minuto. É possível também escolher a 
maneira de proceder ao se cometer um 
erro (isto é, você pode usar a tecla de 
retrocesso para corrigilo ou não). 

Se for escolhida a primeira opção, o 
engano deve ser corrigido assim que 
ocorre. 

De outro modo, o computador 
aguardará até que a tecla correta seja 
pressionada. 





O programa para o Apple é um pou- 
co diferente do de outros micros: ele não 
apresenta a velocidade de digitação de- 
vido à falta de um cronômetro interno. 
E se o seu Apple (ou compatível) não ge- 
ra caracteres minúsculos, não há proble- 
ma em digitá-los todos em caracteres 
maiúsculos. 

Ao digitar as linhas que contêm as in- 
truções DATA, tome cuidado em dei- 
xar sempre um espaço no fim de cada 
frase, para que as palavras não fiquem 
justapostas quando o programa for exe- 
cutado. 

Após algum tempo usando o progra- 
ma, você verá que as frases se tornam 
conhecidas e monótonas, visto que hã 
poucas variações. Tente então substi- 
tuí-las por outras a seu gosto. Para fa- 
zer isso, liste as linhas DATA e 
reescreva-as com frases suas. Lembre- 
se de colocar entre aspas as que contém 
vírgulas; faça o mesmo com as que ter- 
minam cada uma das linhas. Você evi- 
tará, assim, que elas sejam divididas em 
duas, ou que o espaço final seja despre- 
zado pelo computador. Tome medidas 
também para que o número de frases 
não se altere. Se você não se sentir à 
vontade para fazer isto, pode variar O 
exercício optando por dar entrada a tre- 
chos completos de um texto, ou seja, op- 
tando pelo teste 2. 

Cada passagem pode ter um máximo 
de 255 caracteres e o computador acei- 
ta até três frases ao mesmo tempo. Res- 
ponda às perguntas que aparecerem e di- 
gite as frases de sua escolha. Depois de 
colocá-las na memória do computador, 
você poderá escolher qualquer uma 
delas. 

Nos micros MSX, TRS-Color e Spec- 
trum, Os erros são comunicados pelo 
programa por intermédio de um som 
grave. Nos computadores da linha Ap- 
ple, essa função é desempenhada por 
um bip. 


10 POKE 23561,0 
20 CLS 

25 DIM t$(3,255): 
LET df=0, 

30 PRINT AT 7,7;"Qual teste ( 
1 ou 2) ?" 


DIM t(3): 


Agora que você já tem certo domínio 
do teclado, chegou o momento de 

testar sua habilidade como datilógrafo, 
copiando frases mais longas 

exibidas na tela do computador. 








| | 


APRENDA À DIGITAR 
— SENTENÇAS MAIS LONGAS 
VEJA COMO O PROGRAMA 





PARA CORRIGIR OS ERROS 

E | PRATIQUE COM TEXTOS MAIS 
LONGOS 

“ REGRAS PARA UMA BOA 
APRESENTAÇÃO DO TEXTO 


40 PRINT AT 10,7;"Digite '0' 
para sair” 
50 LET aS=INKEYS: IF as<"0” 
OR aS>"2” THEN GOTO 50 
60 IF a$="0" THEN STOP 
70 GOSUB VAL aS*1000 
B0 CLS : PRINT AT 15,4;"Palav 
ras por minuto= ";LEN c$* (INT 
((500/(PEEK 23672+256*PEEK 
23673))*100)/100) 
90 PRINT AT 17,6;"Numero de e 
rros= ":e 
100 GgoTo 30 
1000 CLS : PRINT "Deseja habili' 
tar a tecla DELETE (s/n)?7” 
1010 LET aS=INKEYS: IF asg<>"n”" 
AND a$<>"9s” THEN GOTO 1010 
1020 LET e=0: LET d=0: IF aS="s 
* THEN LET d=1 
1030 CLS 
1040 LET c$="": RESTORE : FOR k 
=] TO 4: LET r=INT (RND*3)+1: F 
OR j=1 TO 3 
1050 READ bS: IF 5=r THEN LET 
cS=cS+bs$ 
1060 NEXT 5: NEXT k 
1070 PRINT cS: PRINT : PRINT 
1080 LET pp=0 
1090 LET aS=INKEYS: IF aS="" TH 
EN GOTO 1090 
1100 POKE 23672,0: POKE 23673,0 
PAUSE O: GOTO 1120 
1110 PAUSE O 
1115 LET aS=INKEYS: IF aS="" TH 
EN GOTO 1110 
1120 IF aS<>cS (pp+1l) AND d=-0 TH 
EN GOTO 1170 
1130 PRINT a$;CHRS 95;CHAS 8B;: 
LET pp=pp+l 
1140 IF aS<>cS$(pp) THEN GOTO 1 
170 
1150 SOUND .01,30: IF pp=LEN cs 
THEN  RETUAN 
1160 GOTO 1110 
1170 SOUND .05,-10: LET e=e+l 
1180 IF d=-0 THEN GOTO 1110 
1190 PAUSE O: LET aS=INKEYS: IF 
aS<>CHRS 12 THEN GOTO 1190 
1200 LET pp=pp-1: PRINT CHRS 68; 
CHARS 95;" ";CHRS 8B;CHRS B;: GOT 
o 1110 
1210 GoTo 1130 
1500 DATA "O cachorro manco que 
anda com tres pernas ","E fato 
que qualquer um ","Na hora cer 
ta, o elefante * 
1510 DATA "pode arrastar ","ser 
a capaz de sentar sobre ","pode 
pular por sobre ”" 
1520 DATA "a velha caixa esbura 
cada ",ºa torre inclinada de Pi 
sa ","qualquer uma das arvores 
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da fazenda * 1180 IF D=0 THEN 1110 apaz de sentar sobre ,pode pula 
1530 DATA "e derruba-la com um 1190 AS=INKEYS: IF AS<>CHARS(B) T r por sobre 
enorme estrondo.","sem medo de HEN 1190 1520 DATA a velha caixa esburac | 
ter uma surpresa.",“ate a hora 1200 PP=PP-1:PRINT €256,MIDS (CS ada ,a torre inclinada de Pisa | 
de fechar o zoologico.” + 1. PP):GOTO 1110 |. qualquer uma das arvores da fa 
2000 CLS : IF df=1 THEN GOTO 2 1210 GoTo 1130 zenda | 
015 1500 DATA O cachorro manco que 1530 DATA e derruba-la com um e 
2005 LET df=1 anda com tres pernas ,E fato qu norme estrondo., sem medo de ter 
2010 FOR n=1l TO 3: INPUT “Intro e qualquer um ,"Na hora certa, uma surpresa., ate a hora de fe 
duza a passagem numero ";(n)' L o elefante ”* char o zoologico. É | 


INE rS: LET t(n)=LEN r$: LET tS 1510 DATA pode arrastar ,sera c 2000 CLS:P=0:IF AS(0)="" AND AS | 
(n)=rS: NEXT n 


2015 INPUT "Que passagem voce d E 219 "OA , 


eseja digitar (1 a 3)? "'p | A , 
l 
À 


Ex | 


RMS 


dd 


2017 IF p>3 OR p<l THEN GOTO 2 
015 

2018 LET cg=tS(p, TO t(p)) 

2020 CLS : PRINT "Deseja habili 
tar a tecla DELETE (3s/n)?” 

2030 LET aS=INKEYS: IF a$S<>"s” 
AND a$<>"n” THEN GOTO 2030 
2040 LET d=0: LET e=0: IF a$S="s 
" THEN LET d=1 

2050 CLS : GOSUB 1070: RETURN 


10 CLEAR 2000 
20 CLS:DIM AS(Z) 
30 PRINT €101,"QUAL TESTE (1 OU 


2) 2º 
40 PRINT 6164," PRESSIONE (0) PA 
RA SAIR” 

50 AS=INKEYS:IF AS<"0”" OR AS>"2 
” THEN 50 


60 IF A$="0" THEN CLS: END 

70 ON VAL (AS) GOSUB 1000,2000 

B0 CLS:PRINT 8448, USING" PALAVRA 

S POR MINUTO=Ht+. ft"; LEN(CS)*50 

0 /TIMER 

90 PRINT 8480," NUMERO DE ERROS= 

“Sã 

100 POKE 282,255:GOTO 30 

1000 CLS:PRINT ”" DESEJA HABILIT 

AR A TECLA DE RE TROCESSO (S/N 
)?” 

1010 AS=INKEYS:IF AS<>"N” AND A 

$<>"5" THEN 1010 

1020 E=0:D=0:IF AS="S”" THEN D=1 
1030 CLS:POKE 282,0 

1040 C$="".RESTORE:FOR K=1 TO 4 
“A=BND(3):FOR J=1 TO 3 

1050 READ B$S:IF J=R THEN CS=CS+ 

BS 

1060 NEXT J,K 

1070 PRINT CS 

1080 PP=0 

1090 AS=INKEYS:IF AS="" THEN 10 

90 

1100 TIMER=0:GOTO 1130 

1110 AS=INKEYS:IF AS="" THEN 11 
10 

1120 IF AS<>MIDS (CS, PP+1,1) AND 
D=0 THEN 1170 

1130 PRINT €PP+256,AS:PP=PP+1 
1140 IF AS<>MIDS (CS,PP,1) THEN 
1170 

1150 SOUND 200,1:IF PP=LEN(CS) 
THEN RETURN 

1160 GOTO 1110 

1170 SCREEN 0,1:SOUND 10,1: E=E+ 
1 
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(1)="" AND AS(2)="" THEN 2090 
2010 PRINT” VOCE QUER USAR UMA 
PASSAGEM JA  DIGITADA (S/N) 7” 
2020 AS=INKEYS:IF AS<>"S” AND A 
$<>"N” THEN 2020 

2030 IF A$="S” THEN 2120 


2040 IF AS(P)="" THEN 2090 

2050 P=P+1:IF P<3 THEN 2040 
2060 PRINT ”" AS TRES PASSAGENS 
FORAM DIGITA- DAS. QUAL VOCE DE 
SEJA REESCRE- VER (1-3)?7” 
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2070 AS=INKEYS:IF AS<"1”" OR AS> 
“3” THEN 2070 

2080 P=VAL(AS)-1 PRINT AS:PRINT 
2090 POKE 282,0:PRINT "DIGITE U 
MA PASSAGEM: ” 

2100 LINE INPUT AS(P) 

2110 GOTO 2150 

2120 CLS: PRINT"QUAL PASSAGEM SE 
RA USADA (1-3) 7” 

2130 AS=INKEYS:IF AS<"1” OR AS> 
“3” THEN 2130 








2140 P=VAL(AS)-L:IF AS(P)="" TH 
EN 2120 

2150 CLS 

2160 POKE 282,255:CLS:PRINT " D 
ESEJA HABILITAR A TECLA DE RE 
TROCESSO (5S/N)?* 

2170 AS=INKEYS: IF AS<>"S" AND A 
S<>"N” THEN 2170 

2180 D=0:E=0Q0:IF A$="S”" THEN D=1 
2190 CLS:POKE 282,0:CS=AS(P):GO 
SUB 1070:RETURN 


GEO) 

10 HOME DIM AS(2) 

20 HTAB 8: VTAB 5: PRINT "QUAL 
TESTE? (1-2)" 

30 HTAB 6: VTAB 7: PRINT 
E <0> PARA TERMINAR.”; 
40 GET AS: IF AS < "0" 
"2º THEN 40 
50 IF NOT VAL (AS) THEN HOM 
E : END 
60 ON VAL (AS) GOSUB 1000,200 


"TECL 


OR AS > 


0 

70 HOME : HTAB 7: VTAB l4: PRI 

NT “NUMERO DE ERROS =>";E 

80 GOTO 20 

1000 HOME :Y = O 

1010 PRINT “VOCE QUER USAR A T 

ECLA DE RETRO 

CESSO (<-)?"; 

1020 GET A$: IF AS < > "SS" AN 

D AS < > "Nº THEN 1020 

1030 E = 0:D = O: IF ASC (AS) 

= 83 THEN D = 1 

1040 HOME IF Y THEN 1080 

1050 CS = "*: RESTORE FOR K = 
1 TO 4:R = INT ( RND (1) * 3) 
+ 1: FOR J = 1 TOS 


1060 READ BS: IF J = R THEN C$ 
- CS + B$ 

1070 NEXT : NEXT 

1080 PRINT CS:PP = O: VTAB 12 
1090 GET AS: IF AS = CHARS (8) 
THEN 1090 

1100 IF AS < 5> MIDS (C$S,PP + 
1,1) AND D = O THEN 1140 

1110 PRINT A$;:PP = PP + 1 

1120 IF AS < > MID$ (CS,PP,1 
) THEN 1140 

1130 IF PP = LEN (C$) THEN R 

ETURN 


1135 GOTO 1090 


1140 PRINT CHR$ (7);:E = E + 
! 
1150 IF NOT D THEN 1090 


1160 GET AS: 
(8) THEN 1100 
1170 PRINT AS;:PP = PP - 1; GO 
TO 1090 
1500 DATA O cachorro manco qu 
e anda com tres pernas ,E fato 
que qualquer um ,“Na hora certa 
+, O elefante * 
1510 DATA pode arrastar ,sera 
capaz de sentar sobre ,"pode Pp 
ular por sobre * 
1520 DATA a velha caixa esbur 
acada ,a torre inclinada de Pis 
a , “qualquer uma das arvores da 
fazenda * 


IF AS <« > cHAS 
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2085 AS(P) = "" 2125 HTAB 1: VTAB 5: PRINT AS( 

2090 PRINT : PRINT "DIGITE UMA P); | 
PASSAGEM: " 2130 NEXT 

2100 FORI = 1 TO 255 2140 GOTO 2180 

2110 GET AS: IF AS = CHR$ (13 2150 HOME : PRINT "QUAL PASSAG 

) THEN 2140 EM SERA USADA? (1-3) "; 


2115 IF AS = CHR$ (8) THEN AS 2160 GET AS: IF AS < "1" OR AS 
(P) = LEFTS (AS(P), LEN (AS(P) > "3" THEN 2160 

) -— 1): PRINT CHARS (8);: GOTO 2170 P = VAL (AS) —- 1: IF AS(P 
2110 ) = *"” THEN 2150 ' 
2120 AS(P) = AS(P) + AS 2180 HOME 





A APRESENTAÇÃO DE UM TEXTO 


Dada a facilidade com que se pode 
corrigir erros no teclado do computa- 
dor, é possível produzir cartas limpas, 
sem borrões ou letras esbranquiçadas 
pelo uso de papel corretor. 

Um documento bem montado apre- 
senta margens de pelo menos três cen- 
tímetros de ambos os lados (o texto, 
obviamente, deve estar centralizado no 

| sentido vertical). Se você usar um edi. 
tor de textos, as margens serão defini- 

| das automaticamente; mas, num pro- 

| grama seu, isso deve ser feito por in- 
termédio dos comandos PRINT ou 
PRINT AT. 

Tão importante quanto as margens 
é a distribuição correta de parágrafos. 
Estes fazem com que o texto fique cla- 
ro e fácil de ser lido. Existem duas for- 
mas de iniciar um parágrafo: a tradicio- | 
nal, em que a primeira palavra começa 
a ser escrita alguns espaços para a di- 
reita; e a mais moderna, na qual se pu- 
la uma linha entre um parágrafo e ou- 
tro, sem fazer o recuo no começo da 
frase. Pode-se também, evidentemen- | 
te, combinar os dois métodos. 

Se você tiver uma carta muito pe- 
quena para redigir, deixe um bom es- 
paço na parte de cima do papel, antes 
de iniciar a impressão e/ou aumente o 

| número de linhas entre os parágrafos. 
Com um pouco de prática, você produ- 

| Zzirá textos bem centralizados e com um 
belo aspecto. 





1530 DATA e derruba-la com en 
orme estrondo., sem medo de ter 
uma surpresa.,ate a hora de fec 
har o zoologico. 
2000 HOME :P = O: IF AS(0) + A 
S(1) + AS(2) = "”" THEN 2090 
2010 PRINT "VOCE QUER USAR UMA 
PASSAGEM JA DIGITADA? (S/N)”"; 
2020 GET AS: IF AS < >"S” AN 
D AS < > "Nº THEN 2020 
2030 IF AS = “5º THEN 2150 
2040 IF AS(P) = "” THEN 2090 
2050 P=- P+ 1: IF P < 3 THEN 2 
040 
2060 PRINT : PRINT "AS TRES PA 
SSAGENS JA FORAM DIGITADAS. 
QUAL VOCE DESEJA REESCREVER? 
(1=3)"; 
2070 GET AS: IF AS < "1l” OR AS 
> "3" THEN 2070 
; 2080 P = VAL (AS) - 1: PRINT À 
S: PRINT 
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. 2190 CS = AS(P):Y = 1: GOSUB 10 
10: RETURN 
à 
: 10 CLEAR2000 
' 20 R=RND(-TIME) :S$="LI0O O2 6" 
' 30 CLS:DIMAS (2) 
à 
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40 LOCATE 8,5: PRINT"Qual teste? 
(1 ou 2)* 

50 LOCATE 6,7:PRINT"Tecle <0> p 

ara terminar.” 

60 AS=INKEYS: IFAS<"0"ORAS>"2"TH 

ENS0 

70 IFAS="0"THENCLS: END 

BO ONVAL (AS) GOSUB1000,2000 

90 CLS:LOCATES,12:PRINT"Palavra 

s por minuto => "USING "4H. tt 

";LEN(CS) *600/TIME 

100 LOCATE?7,14:PRINT"Número de 

erros =>" ;E 

110 GoTO4Oo 

1000 CLS:COLOR 15,6:Y=0D 

1010 PRINT"Você quer usar a tec 

la de retrocesso 
(<<) 7” 

1020 AS=INKEYS: IFAS<>"s"ANDASC> 

"S"ANDAS<>"n" ANDAS<>"N"THEN102Z0 

1030 E=0:D=0:IFAS="s"0RAS="S"TH 

END=1 

1040 CLS: IFYTHEN108O0 

1050 C$="".RESTORE:FORK=1TO4:A= 

INT (RND(1)*3)+1:FORJ=1TO3 

1060 READB$S:IFJ=RTHENCS=CS+B$S 

1070 NEXT:NEXT 


1080 PRINTCS 

1090 PP=0 

1100 AS=INKEYS: IFAS=""THEN1100 

1110 TIME=0:G0T0O1140 

1120 AS=INKEYS:IFAS$=""0ORAS=CHAS 
(8) THEN1120 

1130 IFAS<>MIDS (CS, PP+1,1)ANDD= 
OTHEN1170 

1140 VPOKE PP+201,ASC(AS):PP=PP 

+1 

1150 IFAS<S>MIDS(CS,PP,1)THEN117 

0 

1160 BEEP:IFPP=LEN(C$) THENCOLOR 
15,4:RETURNELSE1120 

1170 PLAY SS: E=E+1 

1180 IFD=0THEN1120 

1190 AS=INKEYS:IFAS=""THEN1190 
1200 IFAS<>CHRS (8) THEN1130 

1210 PP=PP-1:VPOKEPP+201,32:G0T 
01120 

1500 DATA O cachorro manco que 
anda com três pernas ,EÉ fato qu 
é qualquer um ,“Na hora certa, 

o elefante ”" 

1510 DATApode arrastar ,será ca 
paz de sentar sobre ,"pode pula 
r por sobre * 

1520 DATAa velha caixa esburaca 

da ,a torre inclinada de Pisa, 
"qualquer uma das árvores da fa 
zenda " 

1530 DATAe derrubá-la com enorm 

e estrondo., sem medo de ter uma 
surpresa... até a hora de fechar 
o zoológico. 

2000 CLS:P=0:IFAS(O)J+AS(I)+AS(2 
|) =""THEN2090 

2010 PRINT"Você quer usar uma Pp 

assaçem já digitada? (5/N)”" 
2020 AS=INKEYS: IFAS<>"S"ANDASC> 
“gs” ANDAS<>"n"ANDAS<>"N"THEN2020 
2030 IFAS$="S5"0RAS="s"THEN2120 
2040 IFAS(P)=""THEN2090 

2050 P=P+1: IFP<3ITHEN2040 

2060 PRINT:PRINT"ASs três passag 







| Deve-se seguir alguma regra ao modi- 





| ficar as frases do programa? 
Isso depende de sua capacidade co- 
mo datilógrafo, Se o curso inteiro foi 
bem assimilado, você deve ser capaz 
de digitar corretamente qualquer tex- 
to, seja este longo ou curto, simples ou 
complexo, usando os dez dedos e não 
apenas dois, como fazem alguns ini- 
ciantes. | 
Os dedos menores, no entanto, não | 
raro exigem mais treinamento que os 
outros. Para isso, certifique-se de que 
suas frases contêm muitos Os, As, Zs, 
Ps, e Ls. E possível fazer treinamentos 
extra de quaisquer dedos, montando 
um conjunto apropriado de palavras. | 
É preciso, contudo, que essas pala- | 
vras apareçam misturadas a outras, de | 
modo a cobrir todo o teclado. À frase 
“A zebra quase fugiu do zoológico pu- 
lando a grade” é um exemplo, assim 
como “Fique quieto e traga-me uma 
caixa com doze litros de uísque”. Se 
você quiser aumentar a destreza dos | 
dedos menores, faça novos exercícios, | 
inventando outras frases como essas. 
O programa desta lição combina três 
frases para formar um texto que tenha 
algum sentido. Com um pouco de ima- 
ginação, você poderá conseguir o mes- | 
mo efeito com suas próprias frases. 

































ens foram digitadas. Qual 
você deseja reescrever? (1-3)" 
2070 AS=INKEYS: IFAS<"1"ORAS>"3" 
THEN2070 

2080 P=VAL (AS)-1:PRINTAS: PRINT 
2090 PRINT"Digite uma passagem: 
2100 LINEINPUTAS (P) 

2110 G0T0O2150 

2120 CLS: PRINT"Qual passagem se 
rá usada? (1-3)" 

2130 AS=INKEYS: IFAS<"1"0ORAS>"3” 
THEN2130 

2140 P=VAL(AS)-l1:IFAS(P)=""THEN 
2120 

2150 CLS 

2160 COLOR 15,12:C5=AS(P):Y=1:G 
OSUB1010:RETURN 
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E RELÓGIOS 


Os computadores são frequentemente 
relacionados com a Matemática. Embo- 
ra programar em BASIC não exija mui- 
to conhecimento nessa área, a maioria 
dos processos do BASIC é familiar a 
qualquer matemático. Contudo, muitos 
deles são usados não só para fazer cál- 
culos, como também para controlar vá- 
rias outras operações. 

Algumas das funções matemáticas 
mais úteis para o programador são 
aquelas que calculam a relação entre ân- 
gulos e distâncias; elas são, aliás, as mais 
indicadas para o trabalho com gráficos. 

Suponhamos, por exemplo, que que- 
remos desenhar um relógio. Poderíamos 
começar pela caixa, usando o comando 
CIRCLE — menos no TRS-80 e no Ap- 
ple —, mas teriamos dificuldade em po- 
sicionar corretamente os números, se 
calculássemos cada posição manualmen- 
te. Ora, um relógio com números em 
posições erradas não serviria para nada. 

Felizmente, as funções matemáticas 
podem ser usadas para fazer esse cálcu- 
lo. No relógio, a distância entre dois nú- 
meros é de um doze avos de volta. Essa 
distância pode ser calculada pelo com- 
putador: basta fornecer-lhe um núme- 
ro em graus ou em radianos. 

Uma volta completa tem, no círculo, 
360 graus, o que equivale a 2xPI radia- 
nos. No relógio, os numeros estão po- 
sicionados a cada 30 graus (30º), ou a 
cada P1/6 radianos — ou seja, a cada 
um doze avos de volta. O número PI (lê- 
se ““pi") é às vezes representado pela le- 
tra grega 1. 

Frequentemente usado para calcular 
vários aspectos de um circulo, tais co- 
mo sua área e comprimento, PI vale 
aproximadamente 22/7 (quase 3,14). Al- 
guns computadores já têm esse número 
armazenado na memória (como os mi- 
cros da linha Sinclair). 

E aconselhável familiarizar-se tanto 
com graus como com radianos, pois, se 
os primeiros são a medida mais comum 
para ângulos, é com radianos que os 
computadores trabalham. 

Se calcularmos SIN 30 (seno de 30) 
ao mesmo tempo numa calculadora e 
num computador, os resultados serão 
expressos de maneira diferente, a não 
| ser que a calculadora esteja no modo 
| RAD (radiano). Isto acontece porque, 










enquanto esta trabalha com medidas em | 
graus, o computador opera com ra- 


dianos. 


DE GRAUS PARA RADIANOS 





Para passar um número de graus pa- 
ra radianos basta dividi-lo por 180 e de- 
pois multiplicar o resultado por PI. Pa- 
ra efetuar a operação inversa (de radia- 
nos para graus), faz-se o contrário: 
multiplica-se o número por 180 e divide- 
se por PI. 

O programa a seguir o ajudará a 
familiarizar-se com as conversões. Ele 
converte graus em radianos e vice-versa. 
Se você tiver uma calculadora, e quiser 
comparar os resultados, use-a da seguin- 
te maneira: calcule o seno (comando 
SIN), o cosseno (COS) e a tangente 
(TAN) de um número na calculadora e 


Seno, cosseno, tangente: transformadas 
em comandos do BASIC, essas 
funções trigonométricas são essenciais 
quando se quer desenhar curvas, 
circulos e elipses no computador. 


anote os resultados; converta esse núme- 
ro em radianos no computador; faça os 
mesmos cálculos na calculadora e com- 
pare os resultados com os obtidos ante- 
riormente — se tudo for feito correta- 
mente, eles deverão ser iguais. 


=] 
= (À 
| 
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10 INPUT "DESEJA CONVERTER GR 
AUS PARA RADIANOS (1) OU 
RADIANOS PARA GRAUS (2) ?7";a 
20 IF a=-2 THEN GOTO 70 

30 IF a<>l THEN GOTO 10 

40 INPUT "QUAL E O NUMERO?” ;b 
50 PRINT "E IGUAL A ”; b/180* 


a e ii dE = : 
| ir E Em by | 

| | || 

A | ig Ra o E a 








| | 
: 
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* 
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PI," RADIANOS”: GOTO 90 


70 INPUT "QUAL E O NUMERO?” ;b 
80 PRINT “E IGUAL A *; 
PI;" GRAUS* 

90 PRINT "PRESSIONE QUALQUER 
TECLA PARA 
E”: PAUSE O: CLS 


b*180/ 


COMECAR NOVAMENT 
: GOTO 10 





10 PI=4*ATN(1) 

20 CLS 

30 INPUT"VOCE QUER CONVERTER GR 
AUS PARA  RADIANOS (1) OU RADI 
ANOS PARA GRAUS (2) ";A 

40 IF A=2 THEN GOTO 90 

50 IF AS>1l THEN GOTO 20 

60 INPUT "QUAL E O NUMERO ";B 





EE CONVERTA GRAUS EM RADIANOS 
EE COMO DESENHAR UMA BÚSSOLA 
EE | COMO MEDIR ÂNGULOS NUMA 

BUSSOLA 
E O QUE SIGNIFICAM SIN, 


A divisão do circulo em 

graus possibilita uma 

grande variedade de 

aplicações, como os minutos 

e horas de um relógio 

ou os pontos cardeais de 

l uma bússola. Uma 

| volta completa contém 360 

graus. No computador, 

| essa contagem é feita por 

| meio de radianos: cada 

| volta abriga, neste caso, 

* 2 PI radianos (PI é 

P a forma fonética da letra 
grega 7, que designa 
uma constante matemática de 
valor aproximado a 3,14). 





70 PRINT "ISSO E IGUAL A ";B*) 
/180;" RADIANOS” 

80 GOTO 110 

90 INPUT "QUAL E O NUMERO ";B 
100 PRINT "ISSO E IGUAL A ";B*1 
B0/P1I;”" GRAUS” 

110 PRINT "PRESSIONE QUALQUER T 
ECLA PARA EXECUTAR OUTRA VEZ. 


120 AS=INKEYS: IF A$="" THEN GOT 
O 120 
130 GoToO 20 


a 


10 PI=4*ATN(1) 
20 CLS 

30 INPUT"CONVERSÃO DE GRAUS PAR 
& RADIANOS (1) OU DE RADIANOS PA 
RA GRAUS(2) ";A 

40 IF A<l OR A>2 THEN 10 





COS E TAN 


1] OS GRÁFICOS DE SIN E COS 
NH USE SIN E COS PARA 


DESENHAR CÍRCULOS 


E UMA ESFERA FEITA DE ELIPSES 


50 PRINT: INPUT"QUAL O NUMERO ”; 


B 

60 PRINT: PRINT"ELE VALE”; 

70 IFA=ITHEN PRINT B/180*PI;"RA 
DIANOS* 

80 IFA=2THEN PRINT B*180/PI;"GR 
AUS” 

90 PRINT:PRINT"QUALQUER TECLA P 
ARA REPETIR” 

100 IF INKEY$="" THEN 100 

110 GOTO 20 


10 PI = 4 * 
20 HOME 

30 INPUT "CONVERSAO DE GRAUS P 

ARA RADIANOS (1) OU DE RADIANOS 
PARA GRAUS(2) 7 ";A 


40 IFAX 5>1ANDAX 52 TH 
EN 20 


ATN (1) 


50 PRINT : INPUT “QUAL O NUMER 
O? ";B 
60 PRINT : PRINT “ELE VALE ”"; 


70 IF A = | THEN PRINT B / 18 
O * PI;" RADIANOS* 

80 IF A = 2 THEN PRINT B * 18 
O / PI;” GRAUS" 

90 PRINT : PRINT "QUALQUER TEC 
LA PARA REPETIR” 

100 GET AS: IF AS = ** THEN 10 
O 


110 GoTO 20 


Uma vez rodado, o programa pede 
por 1 ou 2, que especificam se a conver- 
são é de graus em radianos ou de radia- 
nos em graus. Depois o programa soli- 
cita o número a ser convertido e faz apa- 
recer o resultado na tela. Entretanto, vi- 
sualizar um ângulo que é representado 
por um simples número pode às vezes 
ser muito difícil, a não ser que esteja- 
mos em condições de vê-lo desenhado. 
Uma representação bastante comum de 
todos os ângulos possíveis é encontra- 
da nas bússolas. Poderíamos verificar is- 
so numa bússola de verdade; mas para 
quê, se o computador pode mostrá-lo 
também? 


“DESENHE UMA BÚSSOLA 





Como existe uma forte relação entre 
círculos (ou arcos de círculos) e medi- 
das de ângulo, podemos usar essas me- 


didas para desenhar relógios, bússolas 








ou quaisquer outras figuras circulares. 

Os programas mencionados a seguir 
desenham uma bússola e posicionam as 
marcações de graus. O norte correspon- 
dea O,o leste a 90, o sula 180 e o oeste 
a 270 graus. Construída a bússola, o 
programa desenhará qualquer ângulo 
que quisermos. 

Somente a versão para o Sinclair 
Spectrum imprime números em volta da 
bússola. Mais adiante veremos como 
contornar esse problema. 

Quando rodamos o programa, o 
computador pede por um número e tra- 
ça uma linha do centro do círculo até um 
certo ponto, formando um ângulo de 
valor equivalente ao número fornecido. 
Isso quer dizer que, se fornecermos 90, 
a linha desejada partirá do centro em di- 
reção à direita. Se digitarmos 180, a li- 
nha sairá do centro e irá para baixo, re- 
presentando assim um ângulo de 180 
graus. 

Note que o computador espera que 
forneçamos um número em graus para 
depois convertêlo em radianos. Se 
olharmos para cada programa, veremos 
que a variável de entrada é dividida por 
180 e multiplicada por PI. Isto nos pou- 
pa o trabalho de fazer a conversão ma- 
nualmente. 


10 BORDER 4: PAPER dá: INK O: 








CLS 


20 CIRCLE 131,88,60 
30 PLOT 131,84 DRAW 0,8: 


PLOT 127,88: DRAW 8,0 
40 FOR a=-0 TO 2*PI STEP PI/4 
50 PLOT 131+55 * SIN a,88+55* 
COS a: DRAW 10*SIN a,10*COS a 
60 NEXT a 

70 PRINT AT 2,16;0 

80 FOR b=45 TO 360 STEP 45 
90 PRINT AT 10-10*COS (b/180* 
PI),15+10*SIN (b/180*PT);b 
100 NEXT b 


110 INPUT * QUE ANGULO, EM G 
RAUS, VOCE DESEJA VER?”,c 
120 INK 2 


130 PLOT 131,88: DRAW 45*SIN ( 
c/180*PI),45*Cos (c/180*PT) 
140 INK O 

150 INPUT ” QUER RECOMECAR (s/ 
n)J?";ds 

160 IF dS$="s" THEN PLOT 131, 
B8: DRAW OVER 1;45*SIN (c/18B0 
*PI),4á5*cos (c/180*PI) 

170 IF d$<>"s” THEN BORDER /: 
PAPER 7: CLS : STOP 

180 PLOT 131,84: DRAW 0,8: 
PLOT 127,88: DRAW 8,0: GOTO 
110 


10 PMODE 4,1 

20 PCLS 

30 PI=4*ATN(1) 

40 CIRCLE(127,95),80,5 

50 FOR X=-0 TO Z*PI STEP PI/4 
60 


LINE (127+72*SIN(X),95-72*C08 





Cale 


(X))-(127+79*SIN(X),95-79*C0OS(X 
)), PSET 

70 NEXT X 

80 CLS: INPUT"QUE ANGULO VOCE Q 
UER ";Z 

90 SCREEN 1,1 

100 X=127+60*SIN(Z*PI/180):Y=95 
-60*COS (Z*P1I/180) 

110 LINE (127,91)-(127,99), PSET 
120 LINE (123,95)-(131,95),PSET 
130 LINE (127,95)-(X,Y),PSET 
140 IF INKEY$S="" THEN 140 

150 LINE(127,95)-(X,Y), PRESET 
160 GgoTo 80 


Dt 


10 PI=4*ATN (1) 

20 CLS 

30 INPUT"QUE ANGULO DESEJA VER 
";Z : Z=Z/180*PI 

40 SCREENZ:COLORI,15 

50 CIRCLE(128,96),80,1,,,1 

60 FOR X=0 TO 2*PI STEP PI/4 

70 LINE (128+72*SIN(X),96-72*cos 
(X))-(12B+79*SIN(X),96-79*COS (X 
1) es 

80 NEXT X 

90 LINE(128,92)-(128,100),1 

100 LINE(124,96)-(132,96),1 

110 FOR I=0 TO 500:NEXT 

120 X=128+60*SIN(Z) :Y=96-60*Cos 
(Z) 

130 LINE(128,96)-(X,Y),1 

140 FOR I=0 TO 3000:NEXT 

150 GoTo 30 
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10 HGR 


20 HCOLOR= 3: HOME 
30 PI = 4 * ATN (1) 
40 FORX=-0TO2Z%PISTEPPI 
/ 60 
50 HPLOT 140 + 80 * SIN (X),8 
0 - 80 * COS (X) 
60 NEXT X 
70 FORX = 0 TO2Z%*PISTEPPI 
ft 4 
* 80 HPLOT 140 + 72 * SIN (X),8 
O -72* COS (X) TO 140 + 79 * 
SIN (X),80 - 79 * COS (X) 
90 NEXT X 
100 HPLOT 140,76 TO 140,84 
110 HPLOT 136,80 TO 144,80 
N 120 VTAB 23 
130 INPUT "QUE ANGULO DESEJA V 


ER? ";Z2:Z2 = Z / 180 * PI 


140 X = 140 + 60 * SIN (Z):Y = 
80 - 60 * COS (Z) 
150 HPLOT 140,80 TO X,Y 
N 160 GET AS: IF AS = "* THEN 16 
0 
170 HCOLOR= 0 
180 HPLOT 140,80 TO X,Y 
| 190 HOME : HCOLOR= 3 
200 GOTO 100 


Os programas do Apple e do TRS- 
Color começam ajustando o modo grá- 
fico adequado na linha 10; depois, eles 
limpam a tela. Como o TRS-Color, o 
MSX e o Apple não têm o número PI 
armazenado na memória; seus progra- 
mas criam uma variável, PI, com o mes- 

mo valor do numero PI, 
f Todos os programas, exceto o do Ap- 


ple, usam depois o comando CIRCLE 
para desenhar a caixa da bússola (circu- 
lo) — linha 40 no TRS-Color, linha 20 
no Spectrum e linha 50 no MSX. O Ap- 
ple não possui o comando CIRCLE; por 
isso, nele o círculo é desenhado passo a 
passo nas linhas 40 a 60, 

Os programas desenham então as 
marcações que completam a bússola: pe- 
quenas linhas a cada 45 graus ao redor 
do circulo nos ajudam a saber a exata 
posição de cada marcação (a versão pa- 
ra o Spectrum numera as posições). Tu- 
do isso é posicionado de acordo com a 
abertura de cada ângulo. 

A parte seguinte dos programas, me- 
nos o do MSX, pede que entremos o ân- 
gulo desejado: linha 80 para o TRS- 
Color, 110 para o Spectrum e 130 para 
o Apple e o TK-2000. 

Uma pequena cruz no centro do cir- 
culo desenhado nos ajudará a verificar 
se os ângulos estão corretos: se entrar- 
mos um ângulo de 90 graus, o traço la- 
teral direito da cruz será superposto pe- 
la nova linha. A cruz é desenhada por 
meio de duas pequenas linhas. 

Mostrado o ângulo pedido, a versão 
do Spectrum pergunta se queremos ver 
outro ângulo; a versão dos outros mi- 
cros espera que apertemos qualquer te- 
cla. Antes de desenhar um novo ângu- 
lo, o TRS-Color, o Spectrum e o Apple 
apagam primeiramente a linha anterior. 
O MSX apaga todo o desenho e o refaz 
depois com o ângulo novo. 

Para ampliar a analogia com a bús- 
sola basta substituir as marcações de 
graus por N, L, Se O (ou seja, norte, 
leste, sul e oeste), e usar O programa co- 
mo um indicador de direção. Assim, se 
quisermos viajar num ângulo de 270 
graus, devemos entrar o valor 270; o 
computador'desenhará então uma linha, 
apontando a direção desejada. 


PONTOS NUM CÍRCULO 





Os programas apresentados na seção 
anterior usam SIN e COS, duas funções 
BASIC que correspondem às funções 
trigonométricas “seno” e “'cosseno”, 
respectivamente. 

Elas se referem à posição de um pon- 
to na circunferência em relação a dois 
eixos que se cortam perpendicularmen- 
te no centro do circulo, O eixo vertical 
é chamado de “Y” e o horizontal, de 
“XxX. Na ilustração destas páginas, o 
ponto A da circunferência está ligado 
aos dois eixos pelas linhas p e q. 

Neste caso, p e q têm o mesmo com- 
primento. Mas, se movermos A para 
baixo, sobre a circunferência, percebe- 
remos que p cresce enquanto q diminui. 





Quando A chegar aos '90 graus, q vale- 
rá O, enquanto p será igual ao raio da 
circunferência. 

Usando o programa da bússola po- 
demos visualizar melhor o que aconte- 
ce. Entremos os ângulos 0, 30, 45 e 90. 
A medida que as linhas mudam de po- 
sição, podemos imaginar como p e q, 
embora não desenhadas na tela, variam 
de comprimento. Com uma régua po- 
deríamos medir p e q direto da tela. 


O VALOR DE SIN E COS 





Evidentemente, a relação entre pe q 
muda à medida que o ângulo aumenta 
ou diminui. Existe ainda uma relação 
entre o raio do círculo e as linhas p e q 
(quando A estiver em 90 graus, p terá 
o mesmo valor do raio do circulo). As- 
sim como a anterior, essa relação entre 
o raio e as linhas p e q também pode ser 
calculada, mudando sempre que o ân- 
gulo mudar. 

A relação entre o raio e p é chamada 
de “'seno'” do ângulo. A relação entre 
o raio e qéo “cosseno” do ângulo. Ou 
seja, se dividirmos as linhas p e q pelo 
raio, obteremos, respectivamente, O se- 
no e o cosseno desse ângulo. Assim, se 
o raio for igual a 1, os valores do seno 
e do cosseno serão iguais aos compri- 
mentos de p e de q. 

O triângulo da ilustração abaixo foi 
obtido do diagrama da bússola. Um dos 
seus vértices é formado pelo encontro do 
eixo X com a linha que liga A ao centro 
do círculo. Uma terceira linha, que sai 
de A e encontra o eixo X em ângulo re- 
to, forma o último lado do triângulo. 

O seno do ângulo formado pelo en- 
contro da linha que liga A ao centro do 
círculo com o eixo X é a relação entre 
o lado oposto a esse ângulo e a hipote- 
nusa. A hipotenusa é sempre o lado 
oposto ao ângulo reto. Na ilustração ela 
é formada pela linha branca que liga A 
ao centro do círculo. O terceiro lado do 
triângulo é chamado de adjacente. 

O cosseno também é, como vimos, 
uma relação entre dois lados. Existe ain- 
da uma outra relação entre lados, co- 
nhecida como tangente do ângulo. 

Em resumo, as relações são as seguin- 
tes: 


seno = lado oposto/hipotenusa 
cosseno = lado adjacente/hipotenusa 
tangente = lado oposto/lado adjacente 


As três relações podem ser calculadas 
pelo computador por intermédio das 
funções SIN, COS e TAN. Por exem- 
plo, PRINT SIN.5 coloca na tela o se- 






































no do ângulo .5 radianos. 

Na ilustração da página 336, à me- 
dida que o ponto se move em senti- 
do horário, partindo do topo do cir- 
culo (ângulo 0), os valores do seno e 
do cosseno aumentam e diminuem res- 
pectivamente, porque p e q mudam de 
tamanho. Depois dos 90 graus o se- 
no começará a diminuir; quando o pon- 
to passar pelos 180 graus tudo mudará 
outra vez. 

Lembremos que o seno mede o quan- 
to um ponto está à direita do eixo Y. As- 
sim, quando ele atingir a metade esquer- 
da do círculo, o seno se tornará nega- 
tivo. 

Do mesmo modo, quando o ponto 
estiver na metade inferior do circulo (e, 
portanto, abaixo do eixo X), o cosseno 
será negativo. 





“OS GRÁFICOS DE SENO E COSSENO | 


Os programas a seguir mostram as 
mudanças do seno e do cosseno à medi- 
da que o ponto gira pelo círculo, 

10 PLOT 0,88 

20 DBAW 255,0 

30 PLOT 20,0: DRAW 0,175 

40 PLOT 10,158: DRAW 15,0: 
PLOT 10,18: DRAW 15,0 

S0 PRINT AT 2,0;1;AT 20,0;-1; 
AT 11,0;0;AT 20,15:180;AT 20, 
29:360 

60 FOR a=0 TO 2*PI STEP .06 
70 PLOT 20+a*35,88+70*SIN a 
80 PLOT INK 2;20+a*35,88+70* 
cos a 

90 NEXT a 


10 PMODE 3,1 

20 PCLS 

30 PI=4*ATN(1) 

50 LINE(6,95)-(255,95), PSET 

60 LINE(10,0)-(10,191),PSET 

70 LINE(6,45)-(10,45),PSET 

80 LINE(6,145)-(10,145),PSET 

90 SCREEN 1,1 

100 FOR X=72 TO 255 STEP 61 

110 LINE(X,92)-(X,95), PSET 

120 NEXT 

130 FOR X=0 TO 2*PI STEP PI/123 
140 PSET (123*X/PI+10,95-50*SIN 
(X),3) 

150 PSET (123*X/P1+10,95-50*COS 
(X),2) 

160 NEXT 

170 GOTO 170 


No triângulo retângulo, a relação entre os 
lados é dada pelos dois ângulos não-retos. 
Dependendo dos lados comparados, 

essa relação será chamada de seno 
(SIN), cosseno (COS) ou tangente (TAN). 


nt 


10 SCREEN2:COLORI,15 

20 CLS 

30 PI=4*ATN(1) 

50 LINE(11,1)-(11,192),1 

60 LINE(7,46)-(11,46),1 

70 LINE(7,146)-(11,146),1 

80 FOR X=72 TO 256 STEP 61 

90 LINE(X,93)-(X,96),1 

100 NEXTX 

110 FOR X=0 TO 2*PI STEP PI/123 
120 PSET(123*X/PI+11,96-50*SIN( 
X)) 56 

130 PSET(123*X/PI+11,96-50*COS( 
X)) 10 

140 NEXTX 

150 IF INKEY$S="" THEN 150 

160 END 


) 
150 HOME 





10 HGR2 : HCOLOR= 3 

20 PI = 4 * ATN (1) 

30 HPLOT 6,95 TO 255,95 

40 HPLOT 10,0 TO 10,191 

0 HPLOT 6,45 TO 10,45 

60 HPLOT 6,145 TO 10,145 

70 FOR X = 72 TO 255 STEP 61 
80 HPLOT X,92 TO X,95 

90 NEXT X 

100 FOR X = 0 TO 2 * PI STEPP 
: * 145 

110 HPLOT 123 * X / PI + 10,95 
- 50 * SIN IX) 

120 HPLOT 123 * X / PI + 10,95 
- 50 * COB (1X) 

130 NEXT X 
140 GET A$: IF AS = *"* THEN 14 


: TEXT 
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Como no programa da bússola, o 
MSX, o Apple e o TRS-Color começam 
ajustando o modo gráfico adequado (li- 
nha 10). Mais uma vez, os três criam 
uma variável (PI) para o valor de PI na 
linha 30. Depois, todos traçam os eixos 
para o gráfico. 

Os programas desenham pequenas li- 
nhas que representam intervalos ao lon- 
go dos eixos. A versão para o Spectrum 
numera os traços. As marcas para o el- 
xo Y (eixo vertical) são le —l, as quais 
satisfazem todos os possíveis valores do 
seno e do cosseno. A numeração para 
o eixo X vai de O a 360 graus. 

O computador desenha então os grá- 
ficos, um para o seno e outro para o cos- 
seno. Ele faz isso usando um laço 
FOR...NEXT. 
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Inventada na China 
por volta de 

1100, a bússola 
magnética só se 
tornou conhecida na 
Europa um século 
mais tarde. Ao lado, 
a bússola do 
Sinclair Spectrum 
mostra um 

ângulo de 70 graus. 








Vimos que existem 2xPI radianos 
num circulo; portanto, se quisermos 
compreender todos os ângulos, o laço 
deverá ser FOR T=0 TO 2*P1. Nesse 
laço existem saltos (STEP) para que o 
computador não faça um desenho a ca- 
da mínima variação de ângulo, mas só 
a cada três ou quatro variações. 

O STEP faz com que o programa se- 
ja mais rápido. Para ter uma idéia de 
sua importância, tente removê-lo e veja 
a diferença. 

As linhas mais importantes para o 
cálculo dos valores do seno e do cosse- 
no (140, 150 no TRS-Color; 70, 80 no 
TK; 120, 130 no MSX e 10, 120 no Ap- 
ple e no TK-2000) parecem muito com- 
plicadas, mas na verdade são bem sim- 
ples. Cada linha usa os comandos 
PLOT, PSET ou DRAW para desenhar 
o gráfico. As posições dos pontos são 
determinadas pelo seno e pelo cosseno 
(SIN e COS), que aparecem nessas li- 
nhas. Os outros números que os acom- 
panham servem simplesmente para mu- 
dar os resultados de escala, a fim de 
ajustá-los corretamente na tela; como 
cada computador tem uma disposição 
de tela diferente, esses cálculos são di- 
ferentes para cada um. 


DESENHE CÍRCULOS 





A chave para posicionar caracteres ao 
redor de um circulo, como no progra- 
ma da bússola, consiste, como vimos, 
em conhecer o raio da circunferência e 
também os ângulos. que eles formam 
com o eixo X. 

O que precisamos é de um programa 
que forneça o centro e o raio do círculo 
e calcule as coordenadas X e Y de qual- 
quer ângulo dado. Se entrarmos uma sé- 
rie de ângulos, o programa será capaz | 
de desenhar uma série de pontos ao re-| 














dor do circulo escolhido. O segredo es- 
tá em ensinar o computador a calcular 
as coordenadas X e Y, e é aqui que en- 
tram nossos velhos amigos SIN e COS. 
Digite este pequeno programa: 


20 FOR x=0 TO 2*PI STEP PI/30 
30 PLOT 128+50*SIN x,88+50* 


COS x 
40 NEXT x 


DM 


10 SCREEN2Z:COLOR1,15 

20 CLS 

30 PI=4*ATN(1) 

40 FOR X=0 TO 2*PI STEP PI/45 
50 PSET(128+80*SIN(X),96-B0*COS 
(X)),1 

60 NEXTX 

70 IF INKEYS="" THEN 70 

80 END 


Cit 


10 HGR2 : HCOLOR= 3 

20 PI = 4 * ATN (1) 

30 FOR Z = O TO BO STEPS 

40 FOR X = O TO 2 * PI STEPPI 


f 45 

50 HPLOT 140 + Z * SIN (X),96 
- BO * COS (X) 

60 NEXT X 

70 NEXI Z 
BO GET AS: IF AS = *""* THEN 80 
90 HOME TEXT 


A tela exibe uma série de pontos que 
adotam a forma de um círculo (essa for- 
ma não é definida por uma linha conti- 
nua porque tal linha levaria muito tem- 
po para ser desenhada). 

Em cada programa, exceto no do 
Spectrum, o computador é ajustado pa- 
ra o modo gráfico adequado, Em segui- 
da, é criado um valor para PI no TRS5- 
Color, no MSX e no Apple. Um laço 
FOR...NEXT diz então ao computador 
para percorrer uma série de ângulos, que 
vai de 0 a 2*PI (linha 20 no TK 90X, 30 
no TRS-Color, 40 no MSX e no Apple) 
- ou seja, diz para formar um circulo 
completo. O tamanho do salto (STEP) 
é o responsável pela velocidade do pro- 
grama e pelo visual pontilhado. 

Na linha seguinte, o computador é 
instruído a desenhar um ponto para ca- 
da ângulo. A posição do ponto é deter- 
minada pela fórmula: 





PLOT raio*SIN(X), raio*COS(A) 


Como você deve estar lembrado, es- 
sas funções determinam as coordenadas 
para qualquer ângulo dado. Os outros 
números somados ou subtraídos nessa 


linha servem para ajustar o centro do 
circulo em relação à tela gráfica do com- 
putador. O centro da tela de alta reso- 
lução no TRS-Color está em 127,95; no 
Apple, está em 140,96; no MSX, está em 
128,96 e no Spectrum, está em 128,88. 
Tente agora alterar a posição do cen- 
tro ou o tamanho do raio: isso o ajuda- 
rá a entender melhor essas funções. 
Existem ainda outros números que, 
ao serem mudados, alteram o visual do 
círculo. Na primeira linha do laço, o 
STEP comanda a distância entre um 
ponto e outro. Quanto menor o STEP, 
mais contínuo será o circulo desenhado. 
Se quisermos maior número de pontos 
no desenho, devemos diminuir o STEP 
(ou dividir PI por um número maior). 


10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI=4*ATN(1) 

30 FOR X=0 TO 2*PI STEP PI/45 
40 PSET (127+80*SIN(X),95-80*CO 
S(X),5) 

50 NEXT X 

60 GoTo 60 





CONSTRUA UMA ELIPSE 


Uma mudança mais interessante con- 
siste em transformar nosso circulo em 
uma elipse. Para tanto, basta fazermos 
com que o número que multiplica SEN 
seja maior ou menor que aquele que 
multiplica COS. Se o que multiplica SEN 
for maior, teremos uma elipse baixa e 
larga. Se for menor, a elipse será alta e 
estreita. 

O programa a seguir desenha uma sé- 
rie de elipses que, juntas, criam o efeito 
de um globo. 


10 FOR z=0 TO 50 STEP 5 

20 FOR x=0 TO 2*PI STEP PI/15 
30 PLOT 128+z*SIN x,8B+50* 
Cos x 


40 NEXT x 
50 NEXT z 


10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI=4*ATN(1) 

30 FOR Z=0 TO BO STEP 5 

40 FOR X=0 TO 2*PI STEP PI/45 
50 PSET(127+Z*SIN(X),95-B0O*COS( 
4) 05) 

60 NEXT X 


70 NEXT Z 
80 coTo 80 


ny 


Qual o tamanho do maior círculo dese- 
nhado pelo computador? 
Evidentemente, nenhum círculo de- 
senhado pelo computador pode extra- 
vasar os limites de sua tela. De fato, 
| Oraio do maior círculo deve ser, no máã- 
| ximo, equivalente à metade do menor 
dos lados da tela. Os maiores raios pa- 
ra cada computador são: 88 para o 


Spectrum, 95 para o TRS-Color e 96 


para o Apple, TK-2000 e MSA. 
Entretanto, para que esses numeros 
provoquem o efeito desejado, o centro 
do círculo deve ser contido por eles. Se 
o círculo for muito grande, o Spectrum 
imprimirá uma mensagem de erro, en- 
quanto os outros computadores dese- 
nharão o máximo que couber na tela. 





10 SCREENZ:COLOR1,15 

20 PI=4*ATN(1):CLS 

30 FOR Z=0 TO 80 STEP 5 

40 FOR X=0 TO 2*PI STEP PI/45 
50 PSET(128+Z*SIN(X),96-80*COS( 
X)),1 

60 NEXT X 

70 NEXT Z 

80 IF INKEYS="" THEN 80 

90 END 


Lélio] 


10  HGRZ 

20 HCOLOR= 3 

30 PI = 4 * ATN (1) 

40 FORX = 0 TO 2 * PI STEPPI 
/ 45 

50 HPLOT 140 + 80 * 

6 - BO * COB (X) 

60 NEXT X 

70 GET AS: IF AS = "*” THEN 70 

Bo HOME TEXT 


SIN (X),9 


Os programas do globo não passam 
de versões adaptadas do programa do 
circulo. Em vez de uma, apenas dese- 
nhamos agora uma série de elipses, 
usando um segundo laço FOR...NEX T 
para variar o número pelo qual a coor- 
denada X é multiplicada. Isso faz com 
que o computador trace elipses de tama- 
nhos diferentes. 

Podemos fazer a elipse “crescer” o 
quanto quisermos, mudando o tamanho 
do STEP de Z (variável de controle). 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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INnnnNO PRÓXIMO NUÚMEROHHHEEEHHI! 


CÓDIGO DE MÁQUINA 


Utilize alguns pequenos programas escritos em código 
de máquina para dar mais vida a seus programas em BASIC. 


PROGRAMAÇÃO BASIC 


Relógios mecânicos e espirais: como elaborar desenhos 
complexos empregando os comandos SIN e COS. 


PROGRAMAÇÃO DE JOGOS. 


Os joysticks tornam seus jogos muito mais profissionais. Veja como 
utilizá-los sem recorrer ao código de máquina. a 





